﻿Public Class FiltraIdentificacion

    Private mUsuariosBE As BE.Usuarios
    Private mUsuariosBS As BS.Usuarios
    Private mIdentificacion As String
    Dim lista As New List(Of SistemaCajas.BE.Usuarios)

    Public Property Identificacion As String
        Get
            Return mIdentificacion
        End Get
        Set(ByVal value As String)
            mIdentificacion = value
        End Set
    End Property


    Function DatosValidos() As Boolean

        Dim primerControl As Control = Nothing
        Dim mensajeDeValidacion As String = String.Empty

        Me.txtIdentificacion.Text = txtIdentificacion.Text.Trim

        If Me.txtIdentificacion.Text = String.Empty Then
            mensajeDeValidacion = "Identificacion"
            primerControl = Me.txtIdentificacion
        End If

        If Not primerControl Is Nothing Then
            MessageBox.Show(mensajeDeValidacion, "Validación", MessageBoxButtons.OK)
            primerControl.Focus()
        End If
        Return True
    End Function

    Private Sub btnCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancelar.Click
        Me.Close()
    End Sub
End Class